(dired-readin): Inhibit modification hooks.

diff --git a/lisp/dired.el b/lisp/dired.el
index e0e72a1847ead339942b32aa4b00cf11cb9bf6d1..f23c109af1c0a66536e5c7d591837d834dcacafc 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -858,7 +858,11 @@ wildcards, erases the buffer, and builds the subdir-alist anew
 
   ;; default-directory and dired-actual-switches must be buffer-local
   ;; and initialized by now.
-  (let (dirname)
+  (let (dirname
+       ;; This makes readin much much faster.
+       ;; In particular, it prevents the font lock hook from running
+       ;; until the directory is all read in.
+       (inhibit-modification-hooks t))
     (if (consp dired-directory)
        (setq dirname (car dired-directory))
       (setq dirname dired-directory))